64'er/64ER_CD.iso/94xx/9409a.d64/tier raten.kurs3

Commodore BASIC | 1995-03-30 | 3KB | 127 lines

10 REM  ******************************
20 REM  *        TIERE RATEN         *
30 REM  ******************************
40 :
50 :
60 REM" [166][166][166][166][166][166][166][166][166] LISTING 3 [166][166][166][166][166][166][166][166][166][166]
70 :
75 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
76 REM" [194]      VORGABEN (100)        [194]
77 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
80 :
100 DIM W$(200)
110 W$(0) = "0"
170 :
180 REM" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
181 [143]" PEEK    LISTE LADEN (200)      PEEK
182 REM" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
190 :
200 [159] 1,8,2, "TIERLISTE,S,R"
210 [132]1, W$(0)
220 [129] Z [178] 1 [164] ([197](W$(0))[171]1)
230 : [132]1, W$(Z)
240 [130] Z
250 [160] 1
270 :
280 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
281 REM" [194]        START (300)        [194]
282 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
290 :
300 M = 1
310 PRINT "DENKE DIR BITTE EIN TIER AUS, DAS ICH" CHR$(13) "ERRATEN MUSS."
320 INPUT "BIST DU BEREIT (JA/NEIN) "; A$
330 IF LEFT$(A$,1) <> "J" THEN 320
340 IF W$(0) <> "0" THEN 400
350 PRINT "ICH KENNE NOCH KEIN TIER"CHR$(13)"AN WELCHES TIER HAST DU GEDACHT"
360 INPUT T$
370 W$(0) = "2"
380 W$(1) = "R " + T$
390 GOTO 970
393 :
394 REM" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
396 [143]" PEEK     U ODER R ? (400)      PEEK
397 REM" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
398 :
400 [139] [200] (W$(M),1) [178] "U" [167] 500
410 [139] [200] (W$(M),1) [178] "R" [167] 700
470 :
480 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
481 REM" [194] UNTERSCHIEDS-FRAGE (500)  [194]
482 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
490 :
500 U$ = W$(M)
510 FOR Z = 3 TO LEN (U$)
520 : IF MID$ (U$,Z,1) = "*" THEN 550
530 : PRINT MID$ (U$,Z,1);
540 NEXT Z
550 INPUT " (JA/NEIN)"; A$
560 IF LEFT$ (A$,1) <> "J" AND LEFT$ (A$,1) <> "N" THEN 510
570 :
580 REM" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
581 [143]" PEEK    MARKIERUNG (600)       PEEK
582 REM" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
590 :
600 [129] Z [178] 3 [164] [195](U$)
610 : [139] [202] (U$,Z,2) [178] "*" [170] [200] (A$,1) [167] 630
620 [130] Z
630 M [178] [197]([202](U$,Z[170]2))
640 [137] 400
670 :
680 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
681 REM" [194]    RATE-FRAGE (700)       [194]
682 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
690 :
700 PRINT "HEISST ES "; MID$ (W$(M),3);
710 INPUT " (JA/NEIN)"; A$
720 IF LEFT$ (A$,1) <> "J" AND LEFT$ (A$,1) <> "N" THEN 700
730 IF LEFT$ (A$,1) = "J" THEN 1100
770 :
780 REM" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
781 [143]" PEEK      LERNEN (800)         PEEK
782 REM" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
790 :
800 [153] "WIE HEISST DAS VON DIR AUSGEDACHTE TIER"
810 [133] T$
820 [139] T$ [178] "" [167] 810
830 [153] "GIB MIR EINE FRAGE, DIE DEN UNTERSCHIED"
840 [153] "ZWISCHEN "; T$; " UND "; [202] (W$(M),3); " BESCHREIBT"
850 [133] F$
860 [139] F$ [178] "" [167] 830
870 [153] "FUER "; T$; " WAERE DIE ANTWORT (JA/NEIN) ";
880 [133] A$
890 [139] [200] (A$,1) [179][177] "J" [175] [200] (A$,1) [179][177] "N" [167] 870
894 :
895 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
896 REM" [194]   PLATZWECHSEL (900)      [194]
897 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
898 :
900 IF LEFT$ (A$,1) = "J" THEN B$ = "N"
910 IF LEFT$ (A$,1) = "N" THEN B$ = "J"
920 W = VAL(W$(0))
930 W$(W) = W$(M)
940 W$(W+1) = "R " + T$
950 W$(M) = "U " + F$ + "*" + LEFT$(A$,1) + STR$(W+1) + "*" + B$ + STR$(W)
960 W$(0) = STR$(W+2)
970 PRINT "VIELEN DANK. ICH HABE WAS NEUES GELERNT."
980 :
985 REM"  [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
986 [143]"  PEEK    ABSPEICHERN (1000)     PEEK
987 REM"  [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
990 :
1000 [159] 2,8,15,"S:TIERLISTE"
1010 [159] 1,8,2,"TIERLISTE,S,W"
1020 [129] Z [178] 0 [164] ([197](W$(0)))
1030 : [152]1, W$(Z)
1040 [130] Z
1050 [160] 1: [160] 2
1060 :
1070 :
1075 [143]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
1076 REM" [194]    NOCH EINMAL (1100)     [194]
1077 [143]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
1080 :
1100 INPUT "SOLL ICH NOCH EIN TIER RATEN (JA/NEIN) "; A$
1110 IF LEFT$(A$,1) = "J" THEN 300
1120 IF LEFT$(A$,1) = "N" THEN END
1130 GOTO 1100